home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MH Power Scripts v1.3.cpt / MH Power Scripts v1.3 / card_4604.txt < prev    next >
Text File  |  1988-05-06  |  13KB  |  373 lines
  1. -- card: 4604 from stack: in.3
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2663
  5. -- name: Super Click Field
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0004
  11. -- rect: left=289 top=64 right=84 bottom=460
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Play Harpsichord a,Paid in Full,* OVERDUE *,Running Account,ASK
  20. ----- HyperTalk script -----
  21. on copyright
  22.  
  23.   -- Super Click Field, Copyright by Mac Help Co., January 1988
  24.   -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  25.   -- Long Beach, CA  90805, (213) 428-7414
  26.   --      The script for this field is copyrighted and may not be
  27.   --      used without the written permission of the author (above).
  28.  
  29. end copyright
  30.  
  31.  
  32. on mouseUp
  33.   set cursor to 4
  34.   put the name of the target into ThisName
  35.   put word 1 of ThisName into FieldLocation
  36.   put the ID of the target into ThisID
  37.   get the rect of the target
  38.   if it is "10,10,490,310" then
  39.     set cursor to 4
  40.     if fieldLocation is "Card" then
  41.       get line 15 of card field ID ThisID
  42.       set the rect of card field ID ThisID to it
  43.       get line 16 of card field ID ThisID
  44.       set the style of card field ID ThisID to it
  45.       put line 1 of card field ID ThisID into card field ID ThisID
  46.     else
  47.       get line 15 of background field ID ThisID
  48.       set the rect of background field ID ThisID to it
  49.       get line 16 of background field ID ThisID
  50.       set the style of background field ID ThisID to it
  51.       put line 1 of background field ID ThisID into background field ID ThisID
  52.     end if
  53.     if the shiftKey is up then exit mouseUp
  54.   end if
  55.   put the number of items of ThisName into TotItems
  56.   delete first word of ThisName
  57.   delete first word of ThisName
  58.   delete first char of ThisName
  59.   delete last char of ThisName
  60.  
  61.   put item 1 of ThisName into BeepFlag
  62.  
  63.   if the shiftKey is down then
  64.     answer "There are" && TotItems-1 && "items for this click field." with "Cancel" or "Modify"
  65.     if it is "Cancel" then exit mouseUp
  66.     if it is "Modify" then
  67.       put item 1 of ThisName into RememberSound
  68.       delete item 1 of ThisName
  69.       ask "Separate each item by a comma (,)" with ThisName
  70.       if it is not empty then
  71.         put it into ThisName
  72.       else
  73.         exit mouseUp
  74.       end if
  75.       if first word of RememberSound is "D" then
  76.         answer "Do you want this field to make a sound?" with "No Sound" or "Sound"
  77.       else
  78.         answer "Do you want this field to make a sound?" with "No Change" or "No Sound" or "Sound"
  79.       end if
  80.       if it is "No Change" then
  81.         put RememberSound & "," before ThisName
  82.       end if
  83.       if it is "Sound" then
  84.         answer "What kind of sound" with "Beep" or "Boing" or "Harpsichord"
  85.         put it into Soundtype
  86.         if it is not "Beep" then
  87.           ask "What notes" with "a"
  88.           if it is empty then put "a" into it
  89.           put "Play" && SoundType && it & "," before item 1 of ThisName
  90.         end if
  91.       end if
  92.       if it is "No Sound" then
  93.         put "Play Silence," before item 1 of ThisName
  94.       end if
  95.     end if
  96.  
  97.     put FieldLocation && "Field ID" && ThisID into ThisField
  98.     set the name of ThisField to ThisName
  99.     exit mouseUp
  100.   end if
  101.   -- End of the entry and modification routine
  102.  
  103.  
  104.   -- ***************** Help Info
  105.   if (first word of ThisName is "D") or (the optionKey is down) then
  106.     set cursor to 4
  107.     put "This is a 'Click Text' field.  You can pre-set" && "this field to contain common words or phrases." && "Once set, simply click on the field to toggle" && "between each item entered.  To set your items" && "HOLD THE SHIFT KEY WHILE CLICKING ON THE FIELD" && "to enter your phrases.  Make sure that you" && "SEPARATE EACH PHRASE ITEM BY A COMMA.  You can make the last" && "item the word ASK, if you want it to ask you to enter" && "unique information for that record." into Description
  108.  
  109.     put the rect of the target into ThisRect
  110.     set the rect of the target to "10,10,490,310"
  111.     if fieldLocation is "Card" then
  112.       put Description into Line 5 of card field ID ThisID
  113.       put ThisRect into Line 15 of card field ID ThisID
  114.       get the style of card field ID ThisID
  115.       put it into line 16 of card field ID ThisID
  116.       set the style of card field ID ThisID to "Shadow"
  117.     else
  118.       put Description into Line 5 of background field ID ThisID
  119.       put ThisRect into Line 15 of background field ID ThisID
  120.       get the style of background field ID ThisID
  121.       put it into line 16 of background field ID ThisID
  122.       set the style of background field ID ThisID to "Shadow"
  123.     end if
  124.     exit mouseUp
  125.   end if
  126.   -- ********************* End Help Info
  127.  
  128.  
  129.  
  130.   put FieldLocation && "Field ID" && ThisID into ThisField
  131.  
  132.   do "put" && ThisField && "into ThisText"
  133.   if ThisText is empty then
  134.     get item 2 of ThisName
  135.     if FieldLocation is "Card" then
  136.       put it into card field ID ThisID
  137.     else
  138.       put it into background field ID ThisID
  139.     end if
  140.   else
  141.     repeat with i = 2 to TotItems
  142.       put item i of ThisName into CheckText
  143.       if ThisText is CheckText then
  144.         get item i+1 of ThisName
  145.         if it is "Ask" then
  146.           ask "Please Enter Unique Information?"
  147.           if it is empty then put "ASK" into it
  148.         end if
  149.         if FieldLocation is "Card" then
  150.           put it into card field ID ThisID
  151.         else
  152.           put it into background field ID ThisID
  153.         end if
  154.         exit repeat
  155.       end if
  156.       if i = TotItems then
  157.         if FieldLocation is "Card" then
  158.           put empty into card field ID ThisID
  159.         else
  160.           put empty into background field ID ThisID
  161.         end if
  162.       end if
  163.     end repeat
  164.  
  165.  
  166.   end if
  167.   do BeepFlag
  168.  
  169. end mouseUp
  170.  
  171.  
  172. -- part 3 (field)
  173. -- low flags: 01
  174. -- high flags: 0004
  175. -- rect: left=289 top=95 right=115 bottom=460
  176. -- title width / last selected line: 0
  177. -- icon id / first selected line: 0 / 0
  178. -- text alignment: 1
  179. -- font id: 3
  180. -- text size: 12
  181. -- style flags: 0
  182. -- line height: 16
  183. -- part name: 
  184. ----- HyperTalk script -----
  185. on copyright
  186.  
  187.   -- Super Click Field, Copyright by Mac Help Co., January 1988
  188.   -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  189.   -- Long Beach, CA  90805, (213) 428-7414
  190.   --      The script for this field is copyrighted and may not be
  191.   --      used without the written permission of the author (above).
  192.  
  193. end copyright
  194.  
  195.  
  196. on mouseUp
  197.   set cursor to 4
  198.   put the name of the target into ThisName
  199.   put word 1 of ThisName into FieldLocation
  200.   put the ID of the target into ThisID
  201.   get the rect of the target
  202.   if it is "10,10,490,310" then
  203.     set cursor to 4
  204.     if fieldLocation is "Card" then
  205.       get line 15 of card field ID ThisID
  206.       set the rect of card field ID ThisID to it
  207.       get line 16 of card field ID ThisID
  208.       set the style of card field ID ThisID to it
  209.       put line 1 of card field ID ThisID into card field ID ThisID
  210.     else
  211.       get line 15 of background field ID ThisID
  212.       set the rect of background field ID ThisID to it
  213.       get line 16 of background field ID ThisID
  214.       set the style of background field ID ThisID to it
  215.       put line 1 of background field ID ThisID into background field ID ThisID
  216.     end if
  217.     if the shiftKey is up then exit mouseUp
  218.   end if
  219.   put the number of items of ThisName into TotItems
  220.   delete first word of ThisName
  221.   delete first word of ThisName
  222.   delete first char of ThisName
  223.   delete last char of ThisName
  224.  
  225.   put item 1 of ThisName into BeepFlag
  226.  
  227.   if the shiftKey is down then
  228.     answer "There are" && TotItems-1 && "items for this click field." with "Cancel" or "Modify"
  229.     if it is "Cancel" then exit mouseUp
  230.     if it is "Modify" then
  231.       put item 1 of ThisName into RememberSound
  232.       delete item 1 of ThisName
  233.       ask "Separate each item by a comma (,)" with ThisName
  234.       if it is not empty then
  235.         put it into ThisName
  236.       else
  237.         exit mouseUp
  238.       end if
  239.       if first word of RememberSound is "D" then
  240.         answer "Do you want this field to make a sound?" with "No Sound" or "Sound"
  241.       else
  242.         answer "Do you want this field to make a sound?" with "No Change" or "No Sound" or "Sound"
  243.       end if
  244.       if it is "No Change" then
  245.         put RememberSound & "," before ThisName
  246.       end if
  247.       if it is "Sound" then
  248.         answer "What kind of sound" with "Beep" or "Boing" or "Harpsichord"
  249.         put it into Soundtype
  250.         if it is not "Beep" then
  251.           ask "What notes" with "a"
  252.           if it is empty then put "a" into it
  253.           put "Play" && SoundType && it & "," before item 1 of ThisName
  254.         end if
  255.       end if
  256.       if it is "No Sound" then
  257.         put "Play Silence," before item 1 of ThisName
  258.       end if
  259.     end if
  260.  
  261.     put FieldLocation && "Field ID" && ThisID into ThisField
  262.     set the name of ThisField to ThisName
  263.     exit mouseUp
  264.   end if
  265.   -- End of the entry and modification routine
  266.  
  267.  
  268.   -- ***************** Help Info
  269.   if (first word of ThisName is "D") or (the optionKey is down) then
  270.     set cursor to 4
  271.     put "This is a 'Click Text' field.  You can pre-set" && "this field to contain common words or phrases." && "Once set, simply click on the field to toggle" && "between each item entered.  To set your items" && "HOLD THE SHIFT KEY WHILE CLICKING ON THE FIELD" && "to enter your phrases.  Make sure that you" && "SEPARATE EACH PHRASE ITEM BY A COMMA.  You can make the last" && "item the word ASK, if you want it to ask you to enter" && "unique information for that record." into Description
  272.  
  273.     put the rect of the target into ThisRect
  274.     set the rect of the target to "10,10,490,310"
  275.     if fieldLocation is "Card" then
  276.       put Description into Line 5 of card field ID ThisID
  277.       put ThisRect into Line 15 of card field ID ThisID
  278.       get the style of card field ID ThisID
  279.       put it into line 16 of card field ID ThisID
  280.       set the style of card field ID ThisID to "Shadow"
  281.     else
  282.       put Description into Line 5 of background field ID ThisID
  283.       put ThisRect into Line 15 of background field ID ThisID
  284.       get the style of background field ID ThisID
  285.       put it into line 16 of background field ID ThisID
  286.       set the style of background field ID ThisID to "Shadow"
  287.     end if
  288.     exit mouseUp
  289.   end if
  290.   -- ********************* End Help Info
  291.  
  292.  
  293.  
  294.   put FieldLocation && "Field ID" && ThisID into ThisField
  295.  
  296.   do "put" && ThisField && "into ThisText"
  297.   if ThisText is empty then
  298.     get item 2 of ThisName
  299.     if FieldLocation is "Card" then
  300.       put it into card field ID ThisID
  301.     else
  302.       put it into background field ID ThisID
  303.     end if
  304.   else
  305.     repeat with i = 2 to TotItems
  306.       put item i of ThisName into CheckText
  307.       if ThisText is CheckText then
  308.         get item i+1 of ThisName
  309.         if it is "Ask" then
  310.           ask "Please Enter Unique Information?"
  311.           if it is empty then put "ASK" into it
  312.         end if
  313.         if FieldLocation is "Card" then
  314.           put it into card field ID ThisID
  315.         else
  316.           put it into background field ID ThisID
  317.         end if
  318.         exit repeat
  319.       end if
  320.       if i = TotItems then
  321.         if FieldLocation is "Card" then
  322.           put empty into card field ID ThisID
  323.         else
  324.           put empty into background field ID ThisID
  325.         end if
  326.       end if
  327.     end repeat
  328.  
  329.  
  330.   end if
  331.   do BeepFlag
  332.  
  333. end mouseUp
  334.  
  335.  
  336. -- part 4 (field)
  337. -- low flags: 01
  338. -- high flags: 0004
  339. -- rect: left=429 top=48 right=63 bottom=489
  340. -- title width / last selected line: 0
  341. -- icon id / first selected line: 0 / 0
  342. -- text alignment: 1
  343. -- font id: 3
  344. -- text size: 9
  345. -- style flags: 0
  346. -- line height: 12
  347. -- part name: See Script
  348. ----- HyperTalk script -----
  349. on mouseUp
  350.   edit script of card field ID 1
  351. end mouseUp
  352.  
  353.  
  354. -- part contents for background part 8
  355. ----- text -----
  356. Card 15 of 20
  357.  
  358. -- part contents for background part 9
  359. ----- text -----
  360. SUPER CLICK FIELD
  361.  
  362. These are handy click fields that you can use to automatically enter information when the field is clicked.  
  363.  
  364. Because this is a field, when used on the background of a stack, every card can retain its own settings.
  365.  
  366. To set the field, you simply hold the shift key down while clicking on the field.  (All the setting information is kept in the name of the field, and if the name of the field is nothing, the field will provide directions if it is clicked.)
  367.  
  368.  
  369. If one of the items is the word 'ASK', it will ask you for unique information to enter.
  370.  
  371. -- part contents for card part 4
  372. ----- text -----
  373. See Script